home *** CD-ROM | disk | FTP | other *** search
/ FM Towns: Free Software Collection 8 / FM Towns Free Software Collection 8.iso / fb386 / d_y / d_y.bas next >
BASIC Source File  |  1994-06-01  |  2KB  |  54 lines
  1. 10 '--------------------------------------------------------------------
  2. 20 '--                   ドル←→円変換プログラム                     --
  3. 30 '--------------------------------------------------------------------
  4. 40 '(c)1991 copyright Daisuke Hidasa
  5. 50 '
  6. 60 CLS : SCREEN@ 0 : COLOR 7,0,0,0 :CONSOLE 2,0,1 : KEY 1,"1"+CHR$(13) : KEY 2,"2"+CHR$(13) : INTERVAL 1
  7. 70 '
  8. 80 '-- 画面描画 -----------
  9. 90 '
  10. 100 LINE (0,28)-(639,250),PSET,3,B
  11. 110 LOCATE 68,0 : COLOR 4 : PRINT TIME$ : LOCATE 3,0 : COLOR 15 : PRINT "　　　　　　 　　＄(ドル)<＝>￥(円)換算プログラム　　　　  　　" : GOTO *初期設定
  12. 120 '
  13. 130 *初期設定 'sub 1
  14. 140 '
  15. 150 LOCATE 2,3 : COLOR 7 : INPUT "(1)ドルから円､(2)円からドル";O
  16. 160 ON INTERVAL GOSUB *TIME : CLS 3
  17. 170 '
  18. 180 *BU 'sub 2
  19. 190 '
  20. 200 ON O GOTO *ドル,*円
  21. 210 '
  22. 220 *ドル
  23. 230 LOCATE 2,8:COLOR 7:PRINT "PF10で先のレートが入力出来ます｡"
  24. 240 '
  25. 250 LOCATE 2,3 : COLOR 5 : INPUT "レートを入力して下さい｡",L
  26. 260 L$=STR$(L):KEY 10,L$+CHR$(13)
  27. 270 IF L>1 THEN GOTO *ドル円
  28. 280 '
  29. 290 '
  30. 300 *ドル円
  31. 310 '
  32. 320 LOCATE 2,4 : COLOR 4 : INPUT "変換する金額を入力して下さい(ドル)",D
  33. 330 E=D*L
  34. 340 LOCATE 2,5 : COLOR 3 : PRINT "金額は";E;"円です"
  35. 350 WHILE INKEY$="" : WEND : CLS 3 : GOTO *初期設定
  36. 360 '
  37. 370 *円
  38. 380 '
  39. 390 LOCATE 2,8:COLOR 7:PRINT "PF10で先のレートが入力出来ます｡"
  40. 400 LOCATE 2,3 : COLOR 5 : INPUT "レートを入力して下さい｡",L
  41. 410 L$=STR$(L):KEY 10,L$+CHR$(13)
  42. 420 IF L>1 THEN GOTO *円ドル
  43. 430 '
  44. 440 '
  45. 450 *円ドル
  46. 460 '
  47. 470 LOCATE 2,4 : COLOR 4 : INPUT "変換する金額を入力して下さい(円)",E
  48. 480 D=E/L
  49. 490 LOCATE 2,5 : COLOR 3 : PRINT "金額は";D;"ドルです"
  50. 500 WHILE INKEY$="" : WEND : CLS 3 : GOTO *初期設定
  51. 510 *TIME
  52. 520 LOCATE 68,0 : COLOR 4 : PRINT TIME$
  53. 530 RETURN
  54.